supplied-by

: (defer)  abort" Deferred name unassigned" ;

: defer  ( "name" -- )
   create ['] (defer) ,
   does> ( ... -- ... )
   @ execute
;

